home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Video Toaster 4.3
/
Video Toaster v4.3.iso
/
4.2
/
arexx
/
cg
/
saveallpages.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1998-04-16
|
774b
|
40 lines
/* SaveAllPages.rexx -- Saves a book as pages. */
/* By Bob Caron © 1994 NewTek, Inc. */
call addlib(CG_AREXX,0)
location=REQ_DIR("Save To Where?","Toaster:CG")
if exists(location)=0 then do
call REQ_TELL("Can't save to there...")
exit
end
if location="" then
exit
current_page=0
call SET_PAGE(0)
do while current_page < 99
if ~page_is_blank() then do
call pragma(d,location)
call SAVEPAGE(location||"Page."current_page)
end
current_page=current_page+1
call SET_PAGE(NEXT)
end
call REQ_TELL("Saved...")
call remlib(CG_AREXX)
exit
/* SubRoutines */
page_is_blank:
page_size=GET_PAGE(SIZE)
line_size=GET_LINE(SIZE)
if (page_size = 0 | page_size = 1) & line_size = 0 then
return 1
else
return 0